Sub CATMain()
Set product1 = CATIA.ActiveDocument.Product
'Set p = CATIA.ActiveDocument.Part
Set p2 = product1.Products.Item(2)
Set p = p2.ReferenceProduct.Parent.Part
Set D = p.GetCustomerFactory("CAAIATestInterfaceVB")
Dim A(1) As Variant
Call D.GetNames(p2, A)
Debug.Print A(0)
Debug.Print A(1)
A(0) = "AAA1"
A(1) = "AAA2"
Call D.SetNames(p2, A)
End Sub

